home *** CD-ROM | disk | FTP | other *** search
/ PC Joker 1999 February / PC Joker 99-02 (Vollversion Darkseed 2).iso / SS1 / MYDLG.MST < prev    next >
Text File  |  1996-06-26  |  3KB  |  107 lines
  1. '$INCLUDE 'setupapi.inc'
  2. '$INCLUDE 'msdetect.inc'
  3.  
  4. GLOBAL intval%
  5. GlOBAL DarkSeedDir$
  6. GLOBAL WindowsDir$
  7. GLOBAL WindowsSysDir$
  8. GLOBAL GamerName$
  9. GLOBAL IniFile$
  10. GLOBAL InstallStr$
  11. GLOBAL DS2SetupCap$,SetupErrCap$
  12. GLOBAL DSII$
  13. GLOBAL HaveSpace&,NeedSpace&
  14.  
  15. INIT:
  16.  CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  17.  DSII$= "Dark Seed II"
  18.  DS2SetupCap$="Dark Seed II Installation"
  19.  SetupErrCap$="Dark Seed II Set-up Fehler"
  20.  BetweenSetups$="Video for Windows - Set-up wird gestartet.  Dark Seed II NICHT jetzt starten!"
  21.  szMinimum$="minimaler"
  22.  szMedium$="mittlerer"
  23.  szHeavy$="maximaler"
  24.  szProceedWith$="Weiter mit "
  25.  szNotWritable$="Kann (in) Dark Seed II Verzeichnis schreiben/anlegen"
  26.  szUninstall$="Deinstallieren"
  27.  szNoDiskSpace$="Sie verfⁿgen nicht ⁿber genⁿgend Festplattenspeicher. WΣhlen Sie ein anderes Laufwerk, und versuchen Sie es erneut."
  28.  SetBitMap CUIDLL$, 111
  29.  SetTitle DS2SetupCap$
  30.  
  31.  szInf$ = GetSymbolValue("STF_SRCINFPATH")
  32.  if szInf$ = "" THEN
  33.    szInf$ = GetSymbolValue("STF_CWDDIR") + "mydlg.inf"
  34.  END if
  35.  ReadInfFile szInf$
  36.  
  37.  DarkSeedDir$ = "c:\darkseed\"
  38.  WindowsDir=GetWindowsDir()
  39.  WindowsSysDir=GetWindowsSysDir()
  40.  
  41. GETPATH:
  42.  SetSymbolValue "DS2Dir",DarkSeedDir$
  43.  SetSymbolValue "GamerName","Reproductor de Dark Seed II"
  44.  SetSymbolValue "InstallLevel", szMinimum$
  45.  OPTCUR$="1"
  46.  
  47. GETPATHL1:
  48.  sz$ = UIStartDlg(CUIDLL$, 1000, "FEditDlgProc", -1,"")
  49.  UIPop 1
  50.  
  51.  DarkSeedDir$ = GetSymbolValue("DS2Dir")
  52.  InstallStr=GetSymbolValue("InstallLevel")
  53.  SrcDir$ = GetSymbolValue("NEWSTF_SRCDIR")
  54.  DS2SrcDir$=SrcDir$+"DARKSEED\"
  55.  
  56.  if sz$ = "OKAY" then
  57.    HaveSpace=GetFreeSpaceForDrive( MID$(DarkSeedDir$,1,1) )
  58.    NeedSpace=10000000
  59.    if InstallStr=szMedium$ then
  60.      NeedSpace=40000000
  61.    elseif InstallStr=szHeavy$ then
  62.      NeedSpace=150000000
  63.    end if
  64.    if (HaveSpace<NeedSpace) then
  65.      intval=DoMsgBox(szNoDiskSpace$,SetupErrCap$,MB_OK)
  66.      goto GETPATHL1
  67.    endif
  68.    if IsDirWritable(DarkSeedDir$) = 0 then
  69.      intval% = DoMsgBox(szNotWritable$,SetupErrCap$, MB_OK)
  70.      goto GETPATHL1
  71.    end if
  72.  elseif sz$ = "EXIT" then
  73.    end
  74.  END if
  75.  
  76.  intval=DoMsgBox(szProceedWith$ + InstallStr + " installation ?",DS2SetupCap$,MB_YESNO)
  77.  if intval=IDNO then
  78.    GOTO GETPATHL1
  79.  end if
  80.  CreateDir DarkSeedDir$, cmoNone
  81.  AddSectionFilesToCopyList "MinInstFile", DS2SrcDir$, DarkSeedDir$
  82.  AddSectionFilesToCopyList "SoundTrack",DS2SrcDir$+"sndtrack\", DarkSeedDir$+"sndtrack\"
  83.  AddSectionFilesToCopyList "WinFile",SrcDir$+"wfile\",WindowsDir$
  84.  AddSectionFilesToCopyList "WinSysFile",SrcDir$+"wsfile\",WindowsSysDir$
  85.  if InstallStr=szMedium$ then
  86.    AddSectionFilesToCopyList "MedInstFile", DS2SrcDir$, DarkSeedDir$
  87.  elseif InstallStr=szHeavy$ then
  88.    AddSectionFilesToCopyList "MedInstFile", DS2SrcDir$, DarkSeedDir$
  89.    AddSectionFilesToCopyList "HvyInstFile", DS2SrcDir$, DarkSeedDir$
  90.  end if
  91.  
  92.  CopyFilesInCopyList
  93.  AddSectionFilesToCopyList "WinG", SrcDir$+"wing\", WindowsSysDir$
  94.  CopyFilesInCopyList
  95.  
  96.  IniFile$ = DarkSeedDir$ + "darkseed.ini"
  97.  CreateIniKeyValue IniFile$, "DIRECTORY", "CD", DS2SrcDir$, cmoOverwrite
  98.  
  99.  CreateProgmanGroup DSII$,DarkSeedDir$+"darkseed.grp",cmoNone
  100.  CreateProgmanItem DSII$,DSII$,DarkSeedDir$ + "dark0001.exe","",cmoOverwrite
  101.  CreateProgmanItem DSII$,szUninstall$,DarkSeedDir$ + "killdsii.exe","",cmoOverwrite
  102. ' ShowProgmanGroup DSII$,2,cmoNone
  103.  intval=DoMsgBox(BetweenSetups$,DS2SetupCap$,MB_OK)
  104.  
  105. QUIT:
  106.  END
  107.